home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 April: Mac OS SDK / Dev.CD Apr 98 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / Components.a < prev    next >
Encoding:
Text File  |  1998-02-12  |  26.1 KB  |  897 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Components.a
  3. ;
  4. ;    Contains:    Component Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.1
  8. ;
  9. ;    Copyright:    © 1991-1998 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  19. __COMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__ERRORS__') = 'UNDEFINED' THEN
  22.     include 'Errors.a'
  23.     ENDIF
  24.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  25.     include 'MacTypes.a'
  26.     ENDIF
  27.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  28.     include 'MixedMode.a'
  29.     ENDIF
  30.  
  31.  
  32. kAppleManufacturer                EQU        'appl'                ; Apple supplied components 
  33. kComponentResourceType            EQU        'thng'                ; a components resource type 
  34. kComponentAliasResourceType        EQU        'thga'                ; component alias resource type 
  35.  
  36. kAnyComponentType                EQU        0
  37. kAnyComponentSubType            EQU        0
  38. kAnyComponentManufacturer        EQU        0
  39. kAnyComponentFlagsMask            EQU        0
  40.  
  41. cmpWantsRegisterMessage            EQU        $80000000
  42. cmpIsComponentAlias                EQU        $10000000
  43.  
  44. kComponentOpenSelect            EQU        -1                    ; ComponentInstance for this open 
  45. kComponentCloseSelect            EQU        -2                    ; ComponentInstance for this close 
  46. kComponentCanDoSelect            EQU        -3                    ; selector # being queried 
  47. kComponentVersionSelect            EQU        -4                    ; no params 
  48. kComponentRegisterSelect        EQU        -5                    ; no params 
  49. kComponentTargetSelect            EQU        -6                    ; ComponentInstance for top of call chain 
  50. kComponentUnregisterSelect        EQU        -7                    ; no params 
  51. kComponentGetMPWorkFunctionSelect EQU    -8                    ; some params 
  52. ;  Component Resource Extension flags 
  53.  
  54. componentDoAutoVersion            EQU        $01
  55. componentWantsUnregister        EQU        $02
  56. componentAutoVersionIncludeFlags EQU    $04
  57. componentHasMultiplePlatforms    EQU        $08
  58. componentLoadResident            EQU        $10
  59.  
  60.  
  61. ;  Set Default Component flags 
  62.  
  63. defaultComponentIdentical        EQU        0
  64. defaultComponentAnyFlags        EQU        1
  65. defaultComponentAnyManufacturer    EQU        2
  66. defaultComponentAnySubType        EQU        4
  67. defaultComponentAnyFlagsAnyManufacturer EQU 3
  68. defaultComponentAnyFlagsAnyManufacturerAnySubType EQU 7
  69. ;  RegisterComponentResource flags 
  70.  
  71. registerComponentGlobal            EQU        1
  72. registerComponentNoDuplicates    EQU        2
  73. registerComponentAfterExisting    EQU        4
  74. registerComponentAliasesOnly    EQU        8
  75.  
  76. ComponentDescription    RECORD 0
  77. componentType             ds.l    1                ; offset: $0 (0)        ;  A unique 4-byte code indentifying the command set 
  78. componentSubType         ds.l    1                ; offset: $4 (4)        ;  Particular flavor of this instance 
  79. componentManufacturer     ds.l    1                ; offset: $8 (8)        ;  Vendor indentification 
  80. componentFlags             ds.l    1                ; offset: $C (12)        ;  8 each for Component,Type,SubType,Manuf/revision 
  81. componentFlagsMask         ds.l    1                ; offset: $10 (16)        ;  Mask for specifying which flags to consider in search, zero during registration 
  82. sizeof                     EQU *                    ; size:   $14 (20)
  83.                         ENDR
  84.  
  85. ResourceSpec            RECORD 0
  86. resType                     ds.l    1                ; offset: $0 (0)        ;  4-byte code  
  87. resID                     ds.w    1                ; offset: $4 (4)        ;               
  88. sizeof                     EQU *                    ; size:   $6 (6)
  89.                         ENDR
  90. ComponentResource        RECORD 0
  91. cd                         ds        ComponentDescription ; offset: $0 (0)    ;  Registration parameters 
  92. component                 ds        ResourceSpec    ; offset: $14 (20)        ;  resource where Component code is found 
  93. componentName             ds        ResourceSpec    ; offset: $1A (26)        ;  name string resource 
  94. componentInfo             ds        ResourceSpec    ; offset: $20 (32)        ;  info string resource 
  95. componentIcon             ds        ResourceSpec    ; offset: $26 (38)        ;  icon resource 
  96. sizeof                     EQU *                    ; size:   $2C (44)
  97.                         ENDR
  98. ; typedef struct ComponentResource *    ComponentResourcePtr
  99.  
  100. ; typedef ComponentResourcePtr *        ComponentResourceHandle
  101.  
  102. ComponentPlatformInfo    RECORD 0
  103. componentFlags             ds.l    1                ; offset: $0 (0)        ;  flags of Component 
  104. component                 ds        ResourceSpec    ; offset: $4 (4)        ;  resource where Component code is found 
  105. platformType             ds.w    1                ; offset: $A (10)        ;  gestaltSysArchitecture result 
  106. sizeof                     EQU *                    ; size:   $C (12)
  107.                         ENDR
  108. ComponentResourceExtension RECORD 0
  109. componentVersion         ds.l    1                ; offset: $0 (0)        ;  version of Component 
  110. componentRegisterFlags     ds.l    1                ; offset: $4 (4)        ;  flags for registration 
  111. componentIconFamily         ds.w    1                ; offset: $8 (8)        ;  resource id of Icon Family 
  112. sizeof                     EQU *                    ; size:   $A (10)
  113.                         ENDR
  114. ComponentPlatformInfoArray RECORD 0
  115. count                     ds.l    1                ; offset: $0 (0)
  116. platformArray             ds        ComponentPlatformInfo ; offset: $4 (4) <-- really an array of length one
  117. sizeof                     EQU *                    ; size:   $10 (16)
  118.                         ENDR
  119. ExtComponentResource    RECORD 0
  120. cd                         ds        ComponentDescription ; offset: $0 (0)    ;  registration parameters 
  121. component                 ds        ResourceSpec    ; offset: $14 (20)        ;  resource where Component code is found 
  122. componentName             ds        ResourceSpec    ; offset: $1A (26)        ;  name string resource 
  123. componentInfo             ds        ResourceSpec    ; offset: $20 (32)        ;  info string resource 
  124. componentIcon             ds        ResourceSpec    ; offset: $26 (38)        ;  icon resource 
  125. componentVersion         ds.l    1                ; offset: $2C (44)        ;  version of Component 
  126. componentRegisterFlags     ds.l    1                ; offset: $30 (48)        ;  flags for registration 
  127. componentIconFamily         ds.w    1                ; offset: $34 (52)        ;  resource id of Icon Family 
  128. count                     ds.l    1                ; offset: $36 (54)        ;  elements in platformArray 
  129. platformArray             ds        ComponentPlatformInfo ; offset: $3A (58) <-- really an array of length one
  130. sizeof                     EQU *                    ; size:   $46 (70)
  131.                         ENDR
  132. ComponentAliasResource    RECORD 0
  133. cr                         ds        ComponentResource ; offset: $0 (0)        ;  Registration parameters 
  134. aliasCD                     ds        ComponentDescription ; offset: $2C (44) ;  component alias description 
  135. sizeof                     EQU *                    ; size:   $40 (64)
  136.                         ENDR
  137. ;   Structure received by Component:        
  138. ComponentParameters        RECORD 0
  139. flags                     ds.b    1                ; offset: $0 (0)        ;  call modifiers: sync/async, deferred, immed, etc 
  140. paramSize                 ds.b    1                ; offset: $1 (1)        ;  size in bytes of actual parameters passed to this call 
  141. what                     ds.w    1                ; offset: $2 (2)        ;  routine selector, negative for Component management calls 
  142. params                     ds.l    1                ; offset: $4 (4) <-- really an array of length one ;  actual parameters for the indicated routine 
  143. sizeof                     EQU *                    ; size:   $8 (8)
  144.                         ENDR
  145. ComponentRecord            RECORD 0
  146. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  147. sizeof                     EQU *                    ; size:   $4 (4)
  148.                         ENDR
  149. ; typedef struct ComponentRecord *        Component
  150.  
  151. ComponentInstanceRecord    RECORD 0
  152. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  153. sizeof                     EQU *                    ; size:   $4 (4)
  154.                         ENDR
  155. ; typedef struct ComponentInstanceRecord * ComponentInstance
  156.  
  157. RegisteredComponentRecord RECORD 0
  158. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  159. sizeof                     EQU *                    ; size:   $4 (4)
  160.                         ENDR
  161. RegisteredComponentInstanceRecord RECORD 0
  162. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  163. sizeof                     EQU *                    ; size:   $4 (4)
  164.                         ENDR
  165. ; typedef struct RegisteredComponentInstanceRecord * RegisteredComponentInstanceRecordPtr
  166.  
  167. ; typedef long                             ComponentResult
  168.  
  169.  
  170. platform68k                        EQU        1                    ; platform type (response from gestaltSysArchitecture) 
  171. platformPowerPC                    EQU        2
  172. platformInterpreted                EQU        3
  173. platformWin32                    EQU        4
  174.  
  175. mpWorkFlagDoWork                EQU        $01
  176. mpWorkFlagDoCompletion            EQU        $02
  177. mpWorkFlagCopyWorkBlock            EQU        $04
  178. mpWorkFlagDontBlock                EQU        $08
  179. mpWorkFlagGetProcessorCount        EQU        $10
  180. mpWorkFlagGetIsRunning            EQU        $40
  181. ComponentMPWorkFunctionHeaderRecord RECORD 0
  182. headerSize                 ds.l    1                ; offset: $0 (0)
  183. recordSize                 ds.l    1                ; offset: $4 (4)
  184. workFlags                 ds.l    1                ; offset: $8 (8)
  185. processorCount             ds.w    1                ; offset: $C (12)
  186. unused                     ds.b    1                ; offset: $E (14)
  187. isRunning                 ds.b    1                ; offset: $F (15)
  188. sizeof                     EQU *                    ; size:   $10 (16)
  189.                         ENDR
  190. ; typedef struct ComponentMPWorkFunctionHeaderRecord * ComponentMPWorkFunctionHeaderRecordPtr
  191.  
  192. ; 
  193. ;    The parameter list for each ComponentFunction is unique. It is
  194. ;    therefore up to users to create the appropriate procInfo for their
  195. ;    own ComponentFunctions where necessary.
  196. ;
  197.  
  198. ; typedef UniversalProcPtr                 ComponentFunctionUPP
  199.  
  200.  
  201. ; ********************************************************
  202. ;*                                                        *
  203. ;*                  APPLICATION LEVEL CALLS                    *
  204. ;*                                                        *
  205. ;*******************************************************
  206.  
  207. ; ********************************************************
  208. ;* Component Database Add, Delete, and Query Routines
  209. ;*******************************************************
  210.  
  211. ;
  212. ; pascal Component RegisterComponent(ComponentDescription *cd, ComponentRoutineUPP componentEntryPoint, short global, Handle componentName, Handle componentInfo, Handle componentIcon)
  213. ;
  214.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  215.         Macro
  216.         _RegisterComponent
  217.             moveq               #1,D0
  218.             dc.w                $A82A
  219.         EndM
  220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  221.         IMPORT_CFM_FUNCTION RegisterComponent
  222.     ENDIF
  223.  
  224. ;
  225. ; pascal Component RegisterComponentResource(ComponentResourceHandle cr, short global)
  226. ;
  227.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  228.         Macro
  229.         _RegisterComponentResource
  230.             moveq               #18,D0
  231.             dc.w                $A82A
  232.         EndM
  233.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  234.         IMPORT_CFM_FUNCTION RegisterComponentResource
  235.     ENDIF
  236.  
  237. ;
  238. ; pascal OSErr UnregisterComponent(Component aComponent)
  239. ;
  240.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  241.         Macro
  242.         _UnregisterComponent
  243.             moveq               #2,D0
  244.             dc.w                $A82A
  245.         EndM
  246.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  247.         IMPORT_CFM_FUNCTION UnregisterComponent
  248.     ENDIF
  249.  
  250. ;
  251. ; pascal Component FindNextComponent(Component aComponent, ComponentDescription *looking)
  252. ;
  253.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  254.         Macro
  255.         _FindNextComponent
  256.             moveq               #4,D0
  257.             dc.w                $A82A
  258.         EndM
  259.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  260.         IMPORT_CFM_FUNCTION FindNextComponent
  261.     ENDIF
  262.  
  263. ;
  264. ; pascal long CountComponents(ComponentDescription *looking)
  265. ;
  266.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  267.         Macro
  268.         _CountComponents
  269.             moveq               #3,D0
  270.             dc.w                $A82A
  271.         EndM
  272.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  273.         IMPORT_CFM_FUNCTION CountComponents
  274.     ENDIF
  275.  
  276. ;
  277. ; pascal OSErr GetComponentInfo(Component aComponent, ComponentDescription *cd, Handle componentName, Handle componentInfo, Handle componentIcon)
  278. ;
  279.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  280.         Macro
  281.         _GetComponentInfo
  282.             moveq               #5,D0
  283.             dc.w                $A82A
  284.         EndM
  285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  286.         IMPORT_CFM_FUNCTION GetComponentInfo
  287.     ENDIF
  288.  
  289. ;
  290. ; pascal long GetComponentListModSeed(void )
  291. ;
  292.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  293.         Macro
  294.         _GetComponentListModSeed
  295.             moveq               #6,D0
  296.             dc.w                $A82A
  297.         EndM
  298.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  299.         IMPORT_CFM_FUNCTION GetComponentListModSeed
  300.     ENDIF
  301.  
  302. ;
  303. ; pascal long GetComponentTypeModSeed(OSType componentType)
  304. ;
  305.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  306.         Macro
  307.         _GetComponentTypeModSeed
  308.             moveq               #44,D0
  309.             dc.w                $A82A
  310.         EndM
  311.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  312.         IMPORT_CFM_FUNCTION GetComponentTypeModSeed
  313.     ENDIF
  314.  
  315. ; ********************************************************
  316. ;* Component Instance Allocation and dispatch routines
  317. ;*******************************************************
  318.  
  319. ;
  320. ; pascal OSErr OpenAComponent(Component aComponent, ComponentInstance *ci)
  321. ;
  322.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  323.         Macro
  324.         _OpenAComponent
  325.             moveq               #45,D0
  326.             dc.w                $A82A
  327.         EndM
  328.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  329.         IMPORT_CFM_FUNCTION OpenAComponent
  330.     ENDIF
  331.  
  332. ;
  333. ; pascal ComponentInstance OpenComponent(Component aComponent)
  334. ;
  335.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  336.         Macro
  337.         _OpenComponent
  338.             moveq               #7,D0
  339.             dc.w                $A82A
  340.         EndM
  341.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  342.         IMPORT_CFM_FUNCTION OpenComponent
  343.     ENDIF
  344.  
  345. ;
  346. ; pascal OSErr CloseComponent(ComponentInstance aComponentInstance)
  347. ;
  348.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  349.         Macro
  350.         _CloseComponent
  351.             moveq               #8,D0
  352.             dc.w                $A82A
  353.         EndM
  354.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  355.         IMPORT_CFM_FUNCTION CloseComponent
  356.     ENDIF
  357.  
  358. ;
  359. ; pascal OSErr GetComponentInstanceError(ComponentInstance aComponentInstance)
  360. ;
  361.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  362.         Macro
  363.         _GetComponentInstanceError
  364.             moveq               #10,D0
  365.             dc.w                $A82A
  366.         EndM
  367.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  368.         IMPORT_CFM_FUNCTION GetComponentInstanceError
  369.     ENDIF
  370.  
  371. ; ********************************************************
  372. ;*                                                        *
  373. ;*                      CALLS MADE BY COMPONENTS              *
  374. ;*                                                        *
  375. ;*******************************************************
  376.  
  377. ; ********************************************************
  378. ;* Component Management routines
  379. ;*******************************************************
  380.  
  381. ;
  382. ; pascal void SetComponentInstanceError(ComponentInstance aComponentInstance, OSErr theError)
  383. ;
  384.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  385.         Macro
  386.         _SetComponentInstanceError
  387.             moveq               #11,D0
  388.             dc.w                $A82A
  389.         EndM
  390.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  391.         IMPORT_CFM_FUNCTION SetComponentInstanceError
  392.     ENDIF
  393.  
  394. ;
  395. ; pascal long GetComponentRefcon(Component aComponent)
  396. ;
  397.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  398.         Macro
  399.         _GetComponentRefcon
  400.             moveq               #16,D0
  401.             dc.w                $A82A
  402.         EndM
  403.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  404.         IMPORT_CFM_FUNCTION GetComponentRefcon
  405.     ENDIF
  406.  
  407. ;
  408. ; pascal void SetComponentRefcon(Component aComponent, long theRefcon)
  409. ;
  410.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  411.         Macro
  412.         _SetComponentRefcon
  413.             moveq               #17,D0
  414.             dc.w                $A82A
  415.         EndM
  416.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  417.         IMPORT_CFM_FUNCTION SetComponentRefcon
  418.     ENDIF
  419.  
  420. ;
  421. ; pascal short OpenComponentResFile(Component aComponent)
  422. ;
  423.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  424.         Macro
  425.         _OpenComponentResFile
  426.             moveq               #21,D0
  427.             dc.w                $A82A
  428.         EndM
  429.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  430.         IMPORT_CFM_FUNCTION OpenComponentResFile
  431.     ENDIF
  432.  
  433. ;
  434. ; pascal OSErr OpenAComponentResFile(Component aComponent, short *resRef)
  435. ;
  436.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  437.         Macro
  438.         _OpenAComponentResFile
  439.             moveq               #47,D0
  440.             dc.w                $A82A
  441.         EndM
  442.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  443.         IMPORT_CFM_FUNCTION OpenAComponentResFile
  444.     ENDIF
  445.  
  446. ;
  447. ; pascal OSErr CloseComponentResFile(short refnum)
  448. ;
  449.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  450.         Macro
  451.         _CloseComponentResFile
  452.             moveq               #24,D0
  453.             dc.w                $A82A
  454.         EndM
  455.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  456.         IMPORT_CFM_FUNCTION CloseComponentResFile
  457.     ENDIF
  458.  
  459. ;
  460. ; pascal OSErr GetComponentResource(Component aComponent, OSType resType, short resID, Handle *theResource)
  461. ;
  462.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  463.         Macro
  464.         _GetComponentResource
  465.             moveq               #53,D0
  466.             dc.w                $A82A
  467.         EndM
  468.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  469.         IMPORT_CFM_FUNCTION GetComponentResource
  470.     ENDIF
  471.  
  472. ;
  473. ; pascal OSErr GetComponentIndString(Component aComponent, Str255 theString, short strListID, short index)
  474. ;
  475.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  476.         Macro
  477.         _GetComponentIndString
  478.             moveq               #54,D0
  479.             dc.w                $A82A
  480.         EndM
  481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  482.         IMPORT_CFM_FUNCTION GetComponentIndString
  483.     ENDIF
  484.  
  485. ;
  486. ; pascal Component ResolveComponentAlias(Component aComponent)
  487. ;
  488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  489.         Macro
  490.         _ResolveComponentAlias
  491.             moveq               #32,D0
  492.             dc.w                $A82A
  493.         EndM
  494.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  495.         IMPORT_CFM_FUNCTION ResolveComponentAlias
  496.     ENDIF
  497.  
  498. ; ********************************************************
  499. ;* Component Instance Management routines
  500. ;*******************************************************
  501.  
  502. ;
  503. ; pascal Handle GetComponentInstanceStorage(ComponentInstance aComponentInstance)
  504. ;
  505.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  506.         Macro
  507.         _GetComponentInstanceStorage
  508.             moveq               #12,D0
  509.             dc.w                $A82A
  510.         EndM
  511.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  512.         IMPORT_CFM_FUNCTION GetComponentInstanceStorage
  513.     ENDIF
  514.  
  515. ;
  516. ; pascal void SetComponentInstanceStorage(ComponentInstance aComponentInstance, Handle theStorage)
  517. ;
  518.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  519.         Macro
  520.         _SetComponentInstanceStorage
  521.             moveq               #13,D0
  522.             dc.w                $A82A
  523.         EndM
  524.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  525.         IMPORT_CFM_FUNCTION SetComponentInstanceStorage
  526.     ENDIF
  527.  
  528. ;
  529. ; pascal long GetComponentInstanceA5(ComponentInstance aComponentInstance)
  530. ;
  531.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  532.         Macro
  533.         _GetComponentInstanceA5
  534.             moveq               #14,D0
  535.             dc.w                $A82A
  536.         EndM
  537.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  538.         IMPORT_CFM_FUNCTION GetComponentInstanceA5
  539.     ENDIF
  540.  
  541. ;
  542. ; pascal void SetComponentInstanceA5(ComponentInstance aComponentInstance, long theA5)
  543. ;
  544.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  545.         Macro
  546.         _SetComponentInstanceA5
  547.             moveq               #15,D0
  548.             dc.w                $A82A
  549.         EndM
  550.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  551.         IMPORT_CFM_FUNCTION SetComponentInstanceA5
  552.     ENDIF
  553.  
  554. ;
  555. ; pascal long CountComponentInstances(Component aComponent)
  556. ;
  557.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  558.         Macro
  559.         _CountComponentInstances
  560.             moveq               #19,D0
  561.             dc.w                $A82A
  562.         EndM
  563.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  564.         IMPORT_CFM_FUNCTION CountComponentInstances
  565.     ENDIF
  566.  
  567. ;  useful helper routines for convenient method dispatching 
  568. ;
  569. ; pascal long CallComponentFunction(ComponentParameters *params, ComponentFunctionUPP func)
  570. ;
  571.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  572.         Macro
  573.         _CallComponentFunction
  574.             moveq               #-1,D0
  575.             dc.w                $A82A
  576.         EndM
  577.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  578.         IMPORT_CFM_FUNCTION CallComponentFunction
  579.     ENDIF
  580.  
  581. ;
  582. ; pascal long CallComponentFunctionWithStorage(Handle storage, ComponentParameters *params, ComponentFunctionUPP func)
  583. ;
  584.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  585.         Macro
  586.         _CallComponentFunctionWithStorage
  587.             moveq               #-1,D0
  588.             dc.w                $A82A
  589.         EndM
  590.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  591.         IMPORT_CFM_FUNCTION CallComponentFunctionWithStorage
  592.     ENDIF
  593.  
  594.     IF TARGET_CPU_PPC ** TARGET_OS_MAC THEN
  595. ;
  596. ; pascal long CallComponentFunctionWithStorageProcInfo(Handle storage, ComponentParameters *params, ProcPtr func, long funcProcInfo)
  597. ;
  598.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  599.         IMPORT_CFM_FUNCTION CallComponentFunctionWithStorageProcInfo
  600.     ENDIF
  601.  
  602.     ELSE
  603.     ENDIF
  604. ;
  605. ; pascal long DelegateComponentCall(ComponentParameters *originalParams, ComponentInstance ci)
  606. ;
  607.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  608.         Macro
  609.         _DelegateComponentCall
  610.             moveq               #36,D0
  611.             dc.w                $A82A
  612.         EndM
  613.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  614.         IMPORT_CFM_FUNCTION DelegateComponentCall
  615.     ENDIF
  616.  
  617. ;
  618. ; pascal OSErr SetDefaultComponent(Component aComponent, short flags)
  619. ;
  620.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  621.         Macro
  622.         _SetDefaultComponent
  623.             moveq               #30,D0
  624.             dc.w                $A82A
  625.         EndM
  626.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  627.         IMPORT_CFM_FUNCTION SetDefaultComponent
  628.     ENDIF
  629.  
  630. ;
  631. ; pascal ComponentInstance OpenDefaultComponent(OSType componentType, OSType componentSubType)
  632. ;
  633.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  634.         Macro
  635.         _OpenDefaultComponent
  636.             moveq               #33,D0
  637.             dc.w                $A82A
  638.         EndM
  639.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  640.         IMPORT_CFM_FUNCTION OpenDefaultComponent
  641.     ENDIF
  642.  
  643. ;
  644. ; pascal OSErr OpenADefaultComponent(OSType componentType, OSType componentSubType, ComponentInstance *ci)
  645. ;
  646.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  647.         Macro
  648.         _OpenADefaultComponent
  649.             moveq               #46,D0
  650.             dc.w                $A82A
  651.         EndM
  652.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  653.         IMPORT_CFM_FUNCTION OpenADefaultComponent
  654.     ENDIF
  655.  
  656. ;
  657. ; pascal Component CaptureComponent(Component capturedComponent, Component capturingComponent)
  658. ;
  659.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  660.         Macro
  661.         _CaptureComponent
  662.             moveq               #28,D0
  663.             dc.w                $A82A
  664.         EndM
  665.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  666.         IMPORT_CFM_FUNCTION CaptureComponent
  667.     ENDIF
  668.  
  669. ;
  670. ; pascal OSErr UncaptureComponent(Component aComponent)
  671. ;
  672.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  673.         Macro
  674.         _UncaptureComponent
  675.             moveq               #29,D0
  676.             dc.w                $A82A
  677.         EndM
  678.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  679.         IMPORT_CFM_FUNCTION UncaptureComponent
  680.     ENDIF
  681.  
  682. ;
  683. ; pascal long RegisterComponentResourceFile(short resRefNum, short global)
  684. ;
  685.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  686.         Macro
  687.         _RegisterComponentResourceFile
  688.             moveq               #20,D0
  689.             dc.w                $A82A
  690.         EndM
  691.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  692.         IMPORT_CFM_FUNCTION RegisterComponentResourceFile
  693.     ENDIF
  694.  
  695. ;
  696. ; pascal OSErr GetComponentIconSuite(Component aComponent, Handle *iconSuite)
  697. ;
  698.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  699.         Macro
  700.         _GetComponentIconSuite
  701.             moveq               #41,D0
  702.             dc.w                $A82A
  703.         EndM
  704.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  705.         IMPORT_CFM_FUNCTION GetComponentIconSuite
  706.     ENDIF
  707.  
  708.  
  709. ; ********************************************************
  710. ;*                                                        *
  711. ;*              Direct calls to the Components                *
  712. ;*                                                        *
  713. ;*******************************************************
  714.  
  715. ;  Old style names
  716.  
  717. ;
  718. ; pascal long ComponentFunctionImplemented(ComponentInstance ci, short ftnNumber)
  719. ;
  720.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  721.         Macro
  722.         _ComponentFunctionImplemented
  723.             move.l              #$0002FFFD,-(sp)
  724.             moveq               #0,D0
  725.             dc.w                $A82A
  726.         EndM
  727.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  728.         IMPORT_CFM_FUNCTION ComponentFunctionImplemented
  729.     ENDIF
  730.  
  731. ;
  732. ; pascal long GetComponentVersion(ComponentInstance ci)
  733. ;
  734.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  735.         Macro
  736.         _GetComponentVersion
  737.             move.l              #$0000FFFC,-(sp)
  738.             moveq               #0,D0
  739.             dc.w                $A82A
  740.         EndM
  741.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  742.         IMPORT_CFM_FUNCTION GetComponentVersion
  743.     ENDIF
  744.  
  745. ;
  746. ; pascal long ComponentSetTarget(ComponentInstance ci, ComponentInstance target)
  747. ;
  748.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  749.         Macro
  750.         _ComponentSetTarget
  751.             move.l              #$0004FFFA,-(sp)
  752.             moveq               #0,D0
  753.             dc.w                $A82A
  754.         EndM
  755.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  756.         IMPORT_CFM_FUNCTION ComponentSetTarget
  757.     ENDIF
  758.  
  759. ;  New style names
  760.  
  761. ;
  762. ; pascal ComponentResult CallComponentOpen(ComponentInstance ci, ComponentInstance self)
  763. ;
  764.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  765.         Macro
  766.         _CallComponentOpen
  767.             move.l              #$0004FFFF,-(sp)
  768.             moveq               #0,D0
  769.             dc.w                $A82A
  770.         EndM
  771.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  772.         IMPORT_CFM_FUNCTION CallComponentOpen
  773.     ENDIF
  774.  
  775. ;
  776. ; pascal ComponentResult CallComponentClose(ComponentInstance ci, ComponentInstance self)
  777. ;
  778.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  779.         Macro
  780.         _CallComponentClose
  781.             move.l              #$0004FFFE,-(sp)
  782.             moveq               #0,D0
  783.             dc.w                $A82A
  784.         EndM
  785.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  786.         IMPORT_CFM_FUNCTION CallComponentClose
  787.     ENDIF
  788.  
  789. ;
  790. ; pascal ComponentResult CallComponentCanDo(ComponentInstance ci, short ftnNumber)
  791. ;
  792.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  793.         Macro
  794.         _CallComponentCanDo
  795.             move.l              #$0002FFFD,-(sp)
  796.             moveq               #0,D0
  797.             dc.w                $A82A
  798.         EndM
  799.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  800.         IMPORT_CFM_FUNCTION CallComponentCanDo
  801.     ENDIF
  802.  
  803. ;
  804. ; pascal ComponentResult CallComponentVersion(ComponentInstance ci)
  805. ;
  806.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  807.         Macro
  808.         _CallComponentVersion
  809.             move.l              #$0000FFFC,-(sp)
  810.             moveq               #0,D0
  811.             dc.w                $A82A
  812.         EndM
  813.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  814.         IMPORT_CFM_FUNCTION CallComponentVersion
  815.     ENDIF
  816.  
  817. ;
  818. ; pascal ComponentResult CallComponentRegister(ComponentInstance ci)
  819. ;
  820.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  821.         Macro
  822.         _CallComponentRegister
  823.             move.l              #$0000FFFB,-(sp)
  824.             moveq               #0,D0
  825.             dc.w                $A82A
  826.         EndM
  827.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  828.         IMPORT_CFM_FUNCTION CallComponentRegister
  829.     ENDIF
  830.  
  831. ;
  832. ; pascal ComponentResult CallComponentTarget(ComponentInstance ci, ComponentInstance target)
  833. ;
  834.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  835.         Macro
  836.         _CallComponentTarget
  837.             move.l              #$0004FFFA,-(sp)
  838.             moveq               #0,D0
  839.             dc.w                $A82A
  840.         EndM
  841.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  842.         IMPORT_CFM_FUNCTION CallComponentTarget
  843.     ENDIF
  844.  
  845. ;
  846. ; pascal ComponentResult CallComponentUnregister(ComponentInstance ci)
  847. ;
  848.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  849.         Macro
  850.         _CallComponentUnregister
  851.             move.l              #$0000FFF9,-(sp)
  852.             moveq               #0,D0
  853.             dc.w                $A82A
  854.         EndM
  855.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  856.         IMPORT_CFM_FUNCTION CallComponentUnregister
  857.     ENDIF
  858.  
  859. ;
  860. ; pascal ComponentResult CallComponentGetMPWorkFunction(ComponentInstance ci, ComponentMPWorkFunctionUPP *workFunction, void **refCon)
  861. ;
  862.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  863.         Macro
  864.         _CallComponentGetMPWorkFunction
  865.             move.l              #$0008FFF8,-(sp)
  866.             moveq               #0,D0
  867.             dc.w                $A82A
  868.         EndM
  869.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  870.         IMPORT_CFM_FUNCTION CallComponentGetMPWorkFunction
  871.     ENDIF
  872.  
  873.  
  874.     IF ¬ TARGET_OS_MAC THEN
  875. ;  
  876. ;        CallComponent is used by ComponentGlue routines to manually call a component function.
  877. ;     
  878.  
  879. ;
  880. ; pascal ComponentResult CallComponent(ComponentInstance ci, ComponentParameters *cp)
  881. ;
  882.     IF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  883.         IMPORT_CFM_FUNCTION CallComponent
  884.     ENDIF
  885.  
  886.     ENDIF
  887. ;  UPP call backs 
  888. ;  ProcInfos 
  889.  
  890.  
  891.  
  892.  
  893.  
  894.  
  895.     ENDIF ; __COMPONENTS__ 
  896.  
  897.